home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / D.HST < prev    next >
Encoding:
Text File  |  1987-09-20  |  828 b   |  37 lines
  1. ;
  2. ;  Download subroutine for HOST.HST
  3. ;
  4. top4_:
  5.    Writeln " "
  6.    Writeln " "
  7.    Write "Enter File Name to Download or [Q] to quit ? "
  8.    Getr 7 12
  9.    If "$7" = "Q" re_menu
  10.    Exist $7 Ydownload_
  11.    Writeln "File [$7] does not exist, try again."
  12.    Goto top4_
  13.  
  14. Ydownload_:
  15.    Writeln " Available protocols: [X]modem  [C]RC Xmodem [I]modem"
  16.    Write   "                      [Y]modem  [G]-Ymodem   [Q]uit  : "
  17.    Getr 6 1
  18.    If "$6" = "X" do_it
  19.    If "$6" = "C" do_it
  20.    If "$6" = "I" do_it
  21.    If "$6" = "Y" do_it
  22.    If "$6" = "G" do_it
  23.    If "$6" = "Q" re_menu
  24.    Writeln " "
  25.    Writeln " Enter one of the above protocols or [Q] to quit..."
  26.    Goto Ydownload_
  27.  
  28. do_it:
  29.    Writeln " File [$7] "
  30.    Writeln " Send ready.  Press [CTRL-X] to abort..."
  31.    Upld $7 $6
  32.    Return
  33.  
  34.  
  35. Re_Menu:
  36.    Return
  37.